<%@ Language=VBScript %> <%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %> <% Dim intMAX_COUNT intMAX_COUNT = 100 %> <% Dim objPCWebNetLog Set objPCWebNetLog = CreateObject("PCWebAdmin.PCWebNetLog") If objPCWebNetLog.Error Then WriteErrorMessage objPCWebNetLog.ErrorDescription End If Dim strUserName strUserName = Trim(Request("strUserName")) If Not gblnIsAdmin or Request("strMyLogs") <> "" Then strUserName = gstrLoggedInUser End If If strUserName <> "" Then objPCWebNetLog.RestrictedOnUser(Trim(strUserName)) Response.Write "

" & GetTextReplace("RecentNetUsageBy", Array(strUserName)) & "

" WriteUserAdminLinks(strUserName) Call DisplayList(False) WriteUserAdminLinks(strUserName) Else 'objPCWebNetLog.FullLog ' Defaults to this anyway Response.Write "

" & GetText("RecentNetUsage") & "

" Call DisplayList(True) End If Set objPCWebNetLog = Nothing Sub DisplayList(blnShowUser) Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF If blnShowUser Then Response.Write "" & vbCRLF End If Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF objPCWebNetLog.MoveFirst Dim intCount intCount = 0 do while ((not objPCWebNetLog.EOF) and intCount < intMAX_COUNT) Response.Write "" & vbCRLF Response.Write "" & vbCRLF If blnShowUser Then Response.Write "" & vbCRLF End If Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF Response.Write "" & vbCRLF objPCWebNetLog.MoveNext intCount = intCount + 1 loop Response.Write "

" & GetText("Date") & "	" & GetText("User") & "	" & GetText("DataUsed") & "	" & GetText("TimeUsed") & "	" & GetText("Cost") & "
" & objPCWebNetLog.LogDate & "	" & objPCWebNetLog.UserName & "	" & objPCWebNetLog.TotalMBText & " " & GetText("MBAbbr") & "	" & objPCWebNetLog.TotalNetHoursText & " " & GetText("HoursAbbr") & "	" & objPCWebNetLog.CostText & "

" & vbCRLF Response.Write "" & vbCRLF End Sub %>